Option explicit
Dim oShell
set oShell= Wscript.CreateObject("WScript.Shell")
oShell.Run "ftp"
WScript.Sleep 500
oShell.Sendkeys "open psb7~"
WScript.Sleep 500
oShell.Sendkeys "admin~"
WScript.Sleep 500
oShell.Sendkeys "frank~"
WScript.Sleep 500
oShell.Sendkeys "cd +'Disk D/Game/Warcraft III/Maps/Download+'~"
WScript.Sleep 500
oShell.Sendkeys "lcd F:\UpdateGame\psbcafe-game-update\trunk\map~"
WScript.Sleep 500
oShell.Sendkeys "mput *.*~"
WScript.Sleep 1000
oShell.Sendkeys "~"
WScript.Sleep 500
oShell.Sendkeys "disconnect~"
WScript.Sleep 500
oShell.Sendkeys "bye~"
Wscript.Quit